home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Fast_Grid_204642252007.psc / Fast Grid Loading / frmBound.frm < prev    next >
Text File  |  2007-02-05  |  2KB  |  64 lines
  1. VERSION 5.00
  2. Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
  3. Begin VB.Form frmBound 
  4.    Caption         =   "Bound Grid To Recordset"
  5.    ClientHeight    =   6225
  6.    ClientLeft      =   60
  7.    ClientTop       =   450
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form2"
  10.    ScaleHeight     =   6225
  11.    ScaleWidth      =   4680
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin MSHierarchicalFlexGridLib.MSHFlexGrid grid1 
  14.       Height          =   5175
  15.       Left            =   120
  16.       TabIndex        =   1
  17.       Top             =   240
  18.       Width           =   4455
  19.       _ExtentX        =   7858
  20.       _ExtentY        =   9128
  21.       _Version        =   393216
  22.       FixedCols       =   0
  23.       _NumberOfBands  =   1
  24.       _Band(0).Cols   =   2
  25.    End
  26.    Begin VB.Label Label2 
  27.       Caption         =   "This Method only return +/- 2000 rows"
  28.       Height          =   375
  29.       Left            =   120
  30.       TabIndex        =   2
  31.       Top             =   5880
  32.       Width           =   4455
  33.    End
  34.    Begin VB.Label Label1 
  35.       Caption         =   "Label1"
  36.       Height          =   375
  37.       Left            =   120
  38.       TabIndex        =   0
  39.       Top             =   5520
  40.       Width           =   4335
  41.    End
  42. End
  43. Attribute VB_Name = "frmBound"
  44. Attribute VB_GlobalNameSpace = False
  45. Attribute VB_Creatable = False
  46. Attribute VB_PredeclaredId = True
  47. Attribute VB_Exposed = False
  48. Option Explicit
  49.  
  50. Private fRs As ADODB.Recordset
  51. Private fConn As ADODB.Connection
  52. Private fTime As Date
  53.  
  54. Private Sub Form_Load()
  55.     fTime = Now
  56.     Set fConn = New ADODB.Connection
  57.     fConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False"
  58.     Set fRs = New ADODB.Recordset
  59.     fRs.Open "select * from inventory order by code", fConn, adOpenStatic, adLockOptimistic
  60.     Set grid1.DataSource = fRs
  61.     DoEvents
  62.     Label1.Caption = "Time : " & Str(DateDiff("s", fTime, Now)) & " Second"
  63. End Sub
  64.